use Test::More tests => 2;
use strict;
use warnings;
use POE;
use POE::Component::Tie;

my $session = POE::Session->create(
  inline_states => {
    _start    => sub {},
    _stop     => sub {},
    _default  => sub {ok(0)}, # Fail if we get any default events
    TIEHANDLE => sub {ok(1)},
  }
);

### Hash tests
open(FILE, ">blah");
ok(tie(*FILE, 'POE::Component::Tie', $session, $poe_kernel), 'Actual tie of hash');

$poe_kernel->run();